home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Library Hyper Card Templates / Open Stack / Labels / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1987-12-04  |  4.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>2855</cardID>
  8.     <listID>2101</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>---------------------- Walking Shadow Library -----------------------
  17. on startUp
  18. getHomeInfo
  19. global fieldScript,fieldList,bookNumber,autoNumbering
  20. global tentativeBook, initGlobals
  21.  
  22. put empty into fieldScript
  23. put "on closeField" into line 1 of fieldScript
  24. put "global fieldList" into line 2 of fieldScript
  25. put "put word 3 of name of me into tempName" into line 3 of ¬¨
  26. fieldScript
  27. put "if not(fieldList contains tempName) then" into line 4 of ¬¨
  28. fieldScript
  29. put "put (word 3 of name of me) & "&quote&","&quote&" after fieldList" ¬¨
  30. into line 5 of fieldScript
  31. put "end if" into line 6 of fieldScript
  32. put "end closeField" into line 7 of fieldScript
  33.  
  34. put empty into fieldList
  35. put false into tentativeBook
  36.  
  37. set lockScreen to true
  38. push card
  39. put true into initGlobals
  40. go to stack "Control"
  41. put the hilite of button "Auto Numbering" into autoNumbering
  42. put card field "Book Number" into bookNumber
  43. put false into initGlobals
  44. pop card
  45. set lockScreen to false
  46.  
  47. pass startUp
  48. end startUp
  49.  
  50. on openStack
  51. global beginGlobal
  52. if beginGlobal is not false then
  53. put false into beginGlobal
  54. set cursor to 4
  55. startUp
  56. end if
  57. end openStack
  58.  
  59.  
  60. on quit
  61. set lockScreen to true
  62. go to stack "Control"
  63. put bookNumber into card field "Book Number"
  64. end quit
  65.  
  66. on mkNewCard
  67. global autoNumbering
  68. set cursor to 4
  69.  
  70. doMenu "New Card"
  71. set lockScreen to true
  72.  
  73. put the id of this card into labId
  74.  
  75. put "on goLab" into line 1 of goLabScr
  76. put "go to "&labId&" of stack Labels" into line 2 of goLabScr
  77. put "end goLab" into line 3 of goLabScr
  78. push card
  79. -----------------------------------------------------------------
  80. go to stack "Circulation"
  81. doMenu "New Card"
  82.  
  83. put the id of this card into circId
  84.  
  85. put "on goCirc" into line 1 of goCircScr
  86. put "go to "&circId&" of stack Circulation" into line 2 of goCircScr
  87. put "end goCirc" into line 3 of goCircScr
  88. push card
  89. ------------------------------------------------------------------
  90. go to stack "Cataloging"
  91. doMenu "New Card"
  92.  
  93. put the id of this card into catId
  94.  
  95. put "on goCat" into line 1 of goCatScr
  96. put "go to "&catId&" of stack Cataloging" into line 2 of goCatScr
  97. put "end goCat" into line 3 of goCatScr
  98. push card
  99. ------------------------------------------------------------------
  100. go to stack "Acquisitions"
  101. doMenu "New Card"
  102.  
  103. put the id of this card into acqId
  104.  
  105. put "on goAcq" into line 1 of goAcqScr
  106. put "go to "&acqId&" of stack Acquisitions" into line 2 of goAcqScr
  107. put "end goAcq" into line 3 of goAcqScr
  108. ------------------------------------------------------------------
  109. -- Make card script:
  110. put goAcqScr into cardScr
  111. put goCircScr into line 4 of cardScr
  112. put goCatScr into line 7 of cardScr
  113. put goLabScr into line 10 of cardScr
  114.  
  115. set the script of this card to cardScr
  116. pop card
  117. set the script of this card to cardScr
  118. pop card
  119. set the script of this card to cardScr
  120. pop card
  121. set the script of this card to cardScr
  122. if autoNumbering is true then send openCard to this card
  123.  
  124. set lockscreen to false
  125. end mkNewCard
  126.  
  127. on delCard
  128. answer "Delete this and related cards in other stacks?" with ¬¨
  129. "OK" or "Cancel"
  130. if it is not "Cancel" then
  131. set cursor to 4
  132. set lockScreen to true
  133.  
  134. push card
  135. do line 5 of the script of this card
  136. push card
  137. do line 8 of the script of this card
  138. push card
  139. do line 2 of the script of this card
  140. doMenu "Delete Card"
  141. pop card
  142. doMenu "Delete Card"
  143. pop card
  144. doMenu "Delete Card"
  145. pop card
  146. doMenu "Delete Card"
  147.  
  148. set lockscreen to false
  149. end if
  150. end delCard
  151.  
  152. on arrowKey whichKey
  153. if the CommandKey is down then
  154. mkNewCard
  155. else
  156. if whichKey = "right" then
  157. go to next card
  158. else
  159. if whichKey = "left" then
  160. go to prev card
  161. end if
  162. end if
  163. end if
  164. end arrowKey
  165. -------------------- End Open Stack Routine ---------------------------
  166.  
  167. on resu